home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / e / Chris_emods.lha / lists.e < prev    next >
Text File  |  1997-08-14  |  712b  |  29 lines
  1. OPT MODULE, REG = 5
  2.  
  3. EXPORT PROC insertinlist(listvar:PTR TO LONG, liststring)
  4.   DEF breakpos, count, tempstr[32]:STRING
  5.  
  6.   count := 0
  7.   breakpos := InStr(liststring, '/')
  8.   WHILE (count < ListLen(listvar))
  9.     IF StrLen(liststring) > 0
  10.       StrCopy(tempstr, liststring, breakpos)
  11.       listvar[count] := Val(tempstr)
  12.       liststring := liststring + breakpos + 1
  13.       breakpos := InStr(liststring, '/')
  14.     ENDIF
  15.     INC count
  16.   ENDWHILE
  17. ENDPROC
  18.  
  19. EXPORT PROC mergelist2str(listvar:PTR TO LONG)
  20.   DEF tempstr[512]:STRING, count
  21.  
  22.   StringF(tempstr, '\d', listvar[0])
  23.   count := 1
  24.   WHILE (count < ListLen(listvar))
  25.     StringF(tempstr, '\s/\d', tempstr, listvar[count])
  26.     INC count
  27.   ENDWHILE
  28. ENDPROC tempstr
  29.